{  Statement: http://acmp.ru/?main=task&id_task=293
   Verdict: Accepted
}
uses
    SysUtils, Math;

const
    eps:double = 1e-6;

var
    i,n,k,mx:longint;
    a:array[0..110] of longint;
    t,cur:double;

begin
reset(input,'input.txt');
rewrite(output,'output.txt');
read(n);
for i:=1 to n do
    read(a[i]);
mx := 0;
cur := 0;
for i:=1 to n do begin
    read(k);
    t := a[i] * k / 100;
    if t - cur > eps then begin
        mx := i;
        cur := t;
    end;
end;
write(mx);
end.